﻿Public Class formservices

    Private Sub btnmgmt_Click(sender As Object, e As EventArgs) Handles btnservices.Click
        Dim parametros2 As String
        Dim ruta As String
        Dim compu As String


        parametros2 = textipservices.Text
        ruta = "c:\windows\system32\cmd.exe"
        compu = "/c services.msc /computer:"

        Shell(ruta & " " & compu & parametros2, vbHide)

        textipservices.Clear()
        Me.Close()
    End Sub

    Private Sub lbnipservices_Click(sender As Object, e As EventArgs) Handles lbnipservices.Click

    End Sub

    Private Sub textipservices_TextChanged(sender As Object, e As EventArgs) Handles textipservices.TextChanged

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub
End Class